﻿Public Class BuildingArgHandler
    Inherits SimpleListArgHandlerBase

    Public Overrides Function GetValues(obj As RawObject, argument As ArgumentDefinition) As IEnumerable(Of String)
        Dim ret As New List(Of String)({"KILN",
                                        "SMELTER",
                                        "TANNER",
                                        "KITCHEN",
                                        "QUERN",
                                        "MILLSTONE",
                                        "STILL",
                                        "CRAFTSMAN"})
        ret.AddRange(obj.Library.GetObjectIdsByType(ObjectType.BUILDING, ObjectSubType.BUILDING_WORKSHOP))
        Return ret
    End Function
End Class
